with Ada.Text_IO.C_Streams;
package body v8.CLass_Message is

   -------------------------------
   -- Print_Current_Stack_Trace --
   -------------------------------

   procedure Print_Current_Stack_Trace (File : Ada.Text_IO.File_Type := Ada.Text_IO.Standard_Output) is
      procedure Invoke (F : Ada.Text_IO.C_Streams.ICS.FILEs);
      pragma Import (CPP, Invoke, "_ZN2v87Message22PrintCurrentStackTraceEP6_iobuf");
   begin
      Invoke(Ada.Text_IO.C_Streams.C_Stream(File));
   end Print_Current_Stack_Trace;
   pragma Inline(Print_Current_Stack_Trace);


end v8.CLass_Message;
